object frmDeposito: TfrmDeposito
  Left = 282
  Top = 172
  Width = 693
  Height = 472
  Caption = 'Ingresar Material'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 209
    Top = 0
    Width = 2
    Height = 438
    Cursor = crHSplit
  end
  object Panel9: TPanel
    Left = 0
    Top = 0
    Width = 209
    Height = 438
    Align = alLeft
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 10791869
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 399
      Width = 205
      Height = 37
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 11580341
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      DesignSize = (
        205
        37)
      object Label1: TLabel
        Left = 8
        Top = 15
        Width = 33
        Height = 13
        Caption = 'Filtrar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 175
        Top = 6
        Width = 25
        Height = 25
        Anchors = [akTop, akRight]
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337FF3333333333330003333333333333777F333333333333080333
          3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
          33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
          B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
          BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
          B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
          3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
          333333333337F33333333333333B333333333333333733333333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object edtFiltroGral: TEdit
        Left = 46
        Top = 6
        Width = 96
        Height = 25
        Anchors = [akLeft, akTop, akRight]
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = edtFiltroGralChange
      end
      object btnDesfiltrarGral: TBitBtn
        Left = 147
        Top = 7
        Width = 26
        Height = 25
        Hint = 'Buscar'
        Anchors = [akTop, akRight]
        Cancel = True
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = btnDesfiltrarGralClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF3333993333339993333377FF3333377FF3399993333339
          993337777FF3333377F3393999333333993337F777FF333337FF993399933333
          399377F3777FF333377F993339993333399377F33777FF33377F993333999333
          399377F333777FF3377F993333399933399377F3333777FF377F993333339993
          399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
          99333773FF3333777733339993333339933333773FFFFFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
        Spacing = 2
      end
    end
    object grdMaterial: TRxDBGrid
      Left = 2
      Top = 2
      Width = 205
      Height = 397
      Align = alClient
      DataSource = sGralMateriales
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = grdMaterialDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'MATERIAL'
          Title.Alignment = taCenter
          Title.Caption = 'Material'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 244
          Visible = True
        end>
    end
  end
  object Panel4: TPanel
    Left = 211
    Top = 0
    Width = 474
    Height = 438
    Align = alClient
    BevelOuter = bvNone
    Color = clActiveBorder
    TabOrder = 1
    DesignSize = (
      474
      438)
    object Label11: TLabel
      Left = 318
      Top = 9
      Width = 43
      Height = 13
      Anchors = [akTop, akRight]
      Caption = '* Fecha'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      Caption = '* Dep'#243'sito'
      FocusControl = DBLookupComboBox1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton3: TSpeedButton
      Left = 445
      Top = 40
      Width = 23
      Height = 22
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
        57705557757777775FF7555555555555000755555555555F777F555555555550
        87075555555555F7577F5555555555088805555555555F755F75555555555033
        805555555555F755F75555555555033B05555555555F755F75555555555033B0
        5555555555F755F75555555555033B05555555555F755F75555555555033B055
        55555555F755F75555555555033B05555555555F755F75555555555033B05555
        555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
        5555F777F7555555555501900555555555557777755555555555099055555555
        5555777755555555555550055555555555555775555555555555}
      NumGlyphs = 2
      OnClick = SpeedButton3Click
    end
    object Label3: TLabel
      Left = 81
      Top = 67
      Width = 57
      Height = 13
      Caption = '* Material'
      FocusControl = DBLookupComboBox2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 67
      Width = 60
      Height = 13
      Caption = '* Cantidad'
      FocusControl = DBEdit2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 148
      Width = 37
      Height = 13
      Caption = 'Origen'
      FocusControl = DBEdit1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 8
      Top = 109
      Width = 53
      Height = 13
      Caption = '* Destino'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 8
      Top = 189
      Width = 85
      Height = 13
      Caption = 'Observaciones'
      FocusControl = DBMemo1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edtCreacion: TDBDateEdit
      Left = 374
      Top = 5
      Width = 96
      Height = 19
      DataField = 'FECHA'
      DataSource = sMovDeposito
      DefaultToday = True
      Anchors = [akTop, akRight]
      NumGlyphs = 2
      TabOrder = 0
      StartOfWeek = Sun
      YearDigits = dyTwo
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 8
      Top = 40
      Width = 430
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      BevelInner = bvNone
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'deposito'
      DataSource = sMovDeposito
      TabOrder = 1
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 281
      Width = 387
      Height = 21
      DataSource = sMovDeposito
      VisibleButtons = [nbInsert, nbPost, nbCancel]
      Anchors = [akLeft, akTop, akRight]
      Flat = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 80
      Top = 83
      Width = 392
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      DataField = 'material'
      DataSource = sMovDeposito
      PopupMenu = pop
      TabOrder = 3
    end
    object DBEdit2: TDBEdit
      Left = 8
      Top = 83
      Width = 65
      Height = 21
      DataField = 'CANTIDAD'
      DataSource = sMovDeposito
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 8
      Top = 164
      Width = 461
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      CharCase = ecUpperCase
      DataField = 'ORIGEN'
      DataSource = sMovDeposito
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object btnGrabar: TBitBtn
      Left = 402
      Top = 280
      Width = 68
      Height = 22
      Anchors = [akTop, akRight]
      Caption = 'Grabar'
      Default = True
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = btnGrabarClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      Spacing = 0
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 8
      Top = 123
      Width = 463
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      DataField = 'obra'
      DataSource = sMovDeposito
      TabOrder = 7
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 205
      Width = 460
      Height = 71
      Anchors = [akLeft, akTop, akRight]
      DataField = 'OBSERVACIONES'
      DataSource = sMovDeposito
      TabOrder = 8
    end
  end
  object cdsGralMateriales: TSQLClientDataSet
    CommandText = 
      'select ID_MATERIAL, MATERIAL '#13#10'from MATERIAL '#13#10'where MATERIAL li' +
      'ke :texto'#13#10'order by MATERIAL'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'texto'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 88
    Top = 136
    object cdsGralMaterialesID_MATERIAL: TFloatField
      FieldName = 'ID_MATERIAL'
      Required = True
    end
    object cdsGralMaterialesMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Required = True
      Size = 50
    end
  end
  object sGralMateriales: TDataSource
    DataSet = cdsGralMateriales
    Left = 120
    Top = 136
  end
  object cdsMovDeposito: TSQLClientDataSet
    CommandText = 'select * from MOV_DEPOSITO where ID_MOVDEPOSITO = :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Value = '0'
      end>
    OnNewRecord = cdsMovDepositoNewRecord
    DBConnection = Datos.Con
    Left = 304
    Top = 288
    object cdsMovDepositoID_MOVDEPOSITO: TIntegerField
      FieldName = 'ID_MOVDEPOSITO'
      Required = True
    end
    object cdsMovDepositoFECHA: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'FECHA'
      Required = True
    end
    object cdsMovDepositoID_MATERIAL: TIntegerField
      FieldName = 'ID_MATERIAL'
      Required = True
    end
    object cdsMovDepositoCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      Required = True
      DisplayFormat = '#,##0.00'
    end
    object cdsMovDepositoID_DEPOSITO: TSmallintField
      FieldName = 'ID_DEPOSITO'
      Required = True
    end
    object cdsMovDepositodeposito: TStringField
      FieldKind = fkLookup
      FieldName = 'deposito'
      LookupDataSet = cdsDeposito
      LookupKeyFields = 'ID_DEPOSITO'
      LookupResultField = 'DIRECCION'
      KeyFields = 'ID_DEPOSITO'
      Size = 40
      Lookup = True
    end
    object cdsMovDepositomaterial: TStringField
      FieldKind = fkLookup
      FieldName = 'material'
      LookupDataSet = cdsGralMateriales
      LookupKeyFields = 'ID_MATERIAL'
      LookupResultField = 'MATERIAL'
      KeyFields = 'ID_MATERIAL'
      Size = 40
      Lookup = True
    end
    object cdsMovDepositoORIGEN: TStringField
      FieldName = 'ORIGEN'
      Size = 50
    end
    object cdsMovDepositoIDOBRA: TIntegerField
      FieldName = 'IDOBRA'
    end
    object cdsMovDepositoobra: TStringField
      FieldKind = fkLookup
      FieldName = 'obra'
      LookupDataSet = cdsObra
      LookupKeyFields = 'ID_OBRA'
      LookupResultField = 'DENOMINACION'
      KeyFields = 'IDOBRA'
      Size = 50
      Lookup = True
    end
    object cdsMovDepositoSENTIDO: TIntegerField
      FieldName = 'SENTIDO'
      Required = True
    end
    object cdsMovDepositoOBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      BlobType = ftMemo
      Size = 1
    end
  end
  object ds: TSQLDataSet
    SQLConnection = Datos.Con
    Params = <>
    Left = 304
    Top = 320
  end
  object sMovDeposito: TDataSource
    DataSet = cdsMovDeposito
    OnStateChange = sMovDepositoStateChange
    Left = 336
    Top = 288
  end
  object cdsDeposito: TSQLClientDataSet
    CommandText = 'DEPOSITO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = Datos.Con
    Left = 304
    Top = 248
    object cdsDepositoID_DEPOSITO: TSmallintField
      FieldName = 'ID_DEPOSITO'
      Required = True
    end
    object cdsDepositoDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 40
    end
  end
  object cdsObra: TSQLClientDataSet
    CommandText = 
      'select ID_OBRA, DENOMINACION '#13#10'from OBRA left join PRESUPUESTO o' +
      'n (OBRA.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'order by DENOMINA' +
      'CION'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 336
    Top = 248
    object cdsObraID_OBRA: TFloatField
      FieldName = 'ID_OBRA'
      Required = True
    end
    object cdsObraDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Required = True
      Size = 50
    end
  end
  object pop: TPopupMenu
    Left = 336
    Top = 320
    object EditarMaterial1: TMenuItem
      Caption = 'Editar Material...'
      OnClick = EditarMaterial1Click
    end
  end
end
